source PAC.tcl

# MiniMapP --

inherit MiniMapP Presentation
method MiniMapP constructor {control minimapCanvas} {
	this inherited $control
	set this(miniMapView) $minimapCanvas 
	
}

method MiniMapP createPlanete {D_planet} {
	dict for {x y radius} $D_palnet {
		$this(miniMapView) create oval [expr $x - $radius] [$y - $radius] [$x + $radius] [$y + $radius] 
	}
}

method MiniMapP createVaisseau {D_vaisseau} {
	set vaisseau_radius 3
	dict for {x y color} $D_vaisseau {
		$this(miniMapView) create oval [expr $x - $vaisseau_radius] [$y - $vaisseau_radius] [$x + $vaisseau_radius] [$y + $vaisseau_radius] -fill color 
	}
}



method MiniMapP destructor {} {
   this inherited
}


# MiniMap --

inherit MiniMap Control
method MiniMap constructor {minimapCanvas} {
   MiniMapP ${objName}_pres $objName $minimapCanvas
   this inherited "" "" ${objName}_pres
}

method MiniMap destructor {} {
   this inherited
}
method MiniMap createPlanete {D_planet} {
	$this(presentation) createPlanete $D_planet
}
method MiniMap createVaisseau {D_vaisseau} {
	$this(presentation) createVaisseau $D_vaisseau
}
